home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 501-525 / disk_524 / kamin / src.lzh / code.ch1 < prev    next >
Text File  |  1991-06-28  |  768b  |  57 lines
  1. 3
  2. 3
  3. (+ 4 7)
  4. 11
  5. (set x 4)
  6. 4
  7. (+ x x)
  8. 8
  9. (print x)
  10.   4
  11. 4
  12. (set y 5)
  13. 5
  14. (begin (print x) (print y) (* x y))
  15.   4
  16.   5
  17. 20
  18. (if (> y 0) 5 10)
  19. 5
  20. (while (> y 0)
  21.     (begin (set x (+ x x)) (set y (- y 1))))
  22. 0
  23. x
  24. 128
  25. (define +1 (x) (+ x 1))
  26. (+1 4)
  27. 5
  28. (define double (x) (+ x x))
  29. (double 4)
  30. 8
  31. x
  32. 128
  33. (define setx (x y) (begin (set x (+ x y)) x))
  34. (setx x 1)
  35. 129
  36. x
  37. 128
  38. (define not (boolval) (if boolval 0 1))
  39. (define <> (x y) (not (= x y)))
  40. (define mod (m n) (- m (* n (/ m n))))
  41. (define gcd (m n)
  42.       (begin
  43.           (set r (mod m n))
  44.           (while (<> r 0)
  45.                (begin
  46.                     (set m n)
  47.                     (set n r)
  48.                     (set r (mod m n))))
  49.           n))
  50. (gcd 6 15)
  51. 3
  52. (define gcd (m n)
  53.       (if (= n 0) m (gcd n (mod m n))))
  54. (gcd 6 15)
  55. 3
  56. quit
  57.